home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / d / dpaintv5_2extras.dms / dpaintv5_2extras.adf / Macros / Shadow.dprx < prev   
Text File  |  1994-10-21  |  1KB  |  58 lines
  1. /*  DPaint Soft Edge Shadow Macro By Doug Shannon
  2.  *  (c) 1994 Electronic Arts
  3.  *
  4.  *   Creates a soft edge drop shadow using your current brush
  5.  *   as a template 
  6.  *
  7.  * To use:
  8.  * 1 Position Brush where you want the shadow to fall
  9.  * 2 Execute macro through keyboard command
  10.  * 3 Set the percentage of Shadow
  11.  * 4 Sit back and watch it render!
  12.  *
  13.  * Note: This macro works best when you have lots of colors for
  14.  *       The shadow to render with.  It works best with the 24bit
  15.  *       Backing store or ham modes. If results are'nt what you
  16.  *       hoped for, try increasing the varaible LEVEL, which sets
  17.  *       How much translucency is used.
  18.  */
  19. level=10  /*This number is the amount of Translucency to use */
  20.  
  21. Address Dpaint.1
  22. options results
  23.  
  24. screentofront
  25.  
  26. /* Memorize current X and Y coords */
  27. getcoord x
  28. x=result
  29. getcoord y
  30. y=result
  31.  
  32. lockgui
  33. REQUESTnumber PROMPT '"Shadow %:"' TITLE 'Shadow' number 30
  34. trans=result
  35.  
  36. /* Setup */
  37. COLOR
  38. CLOSESTCOLOR 0 0 0
  39. setFGCOLOR result
  40. settranslucency (100-level)
  41. translucency ON
  42. setspace ntotal 7
  43.  
  44. /* Render the Shadow */
  45.  
  46. do i=1 to trans/level
  47.  circle x y rad (i*3)
  48. end
  49.  
  50. /* Set everything back to normal */
  51.  
  52. DOTTED
  53. MATTE
  54. translucency OFF
  55. Setspace continous
  56. unlockgui
  57.  
  58.